(mac-ae-open-documents): Adjust selection range parameter origins.
authorYAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Sat, 12 Apr 2008 01:59:41 +0000 (01:59 +0000)
committerYAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Sat, 12 Apr 2008 01:59:41 +0000 (01:59 +0000)
lisp/term/mac-win.el

index c9c13c7814e5b7c217b796b68e6c4476f6206adf..eaa0e35fa5b3e9ec6fd6a56b1fc4b716660db284 100644 (file)
@@ -1738,11 +1738,11 @@ if possible.  If there's no such frame, a new frame is created."
             (let ((line (car selection-range))
                   (start (cadr selection-range))
                   (end (nth 2 selection-range)))
-              (if (> line 0)
-                  (goto-line line)
-                (if (and (> start 0) (> end 0))
-                    (progn (set-mark start)
-                           (goto-char end))))))
+              (if (>= line 0)
+                  (goto-line (1+ line))
+                (if (and (>= start 0) (>= end 0))
+                    (progn (set-mark (1+ start))
+                           (goto-char (1+ end)))))))
            ((stringp search-text)
             (re-search-forward
              (mapconcat 'regexp-quote (split-string search-text) "\\|")